﻿Public Class frmProdutos
    Dim objcontrole As New ClsControle
    Dim objProduto As New CLSProdutos
    Dim novo As Boolean
   
    Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
        If Not objcontrole.Testar_vazio(Me) Then
            objProduto.ID = txtCod.Text
            objProduto.NomeProduto = txtNome.Text
            objProduto.Unidade = txtUnidade.Text
            objProduto.valorUnitario = txtValorUnitario.Text

            novo = True
            objProduto.Gravar(novo)
            MessageBox.Show("Controles Validados com Sucesso!", "Sucesso", MessageBoxButtons.OK, MessageBoxIcon.Information)
            objcontrole.Limpar_tela(Me)
        End If


    End Sub

    Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class